home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 98 / Skunkware 98.iso / src / interp / perl5.005.tar.gz / perl5.005.tar / perl5.005 / t / op / time.t < prev    next >
Text File  |  1998-07-19  |  1KB  |  48 lines
  1. #!./perl
  2.  
  3. # $RCSfile: time.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:32 $
  4.  
  5. if ($does_gmtime = gmtime(time)) { print "1..5\n" }
  6. else { print "1..3\n" }
  7.  
  8. ($beguser,$begsys) = times;
  9.  
  10. $beg = time;
  11.  
  12. while (($now = time) == $beg) { sleep 1 }
  13.  
  14. if ($now > $beg && $now - $beg < 10){print "ok 1\n";} else {print "not ok 1\n";}
  15.  
  16. for ($i = 0; $i < 100000; $i++) {
  17.     ($nowuser, $nowsys) = times;
  18.     $i = 200000 if $nowuser > $beguser && ( $nowsys > $begsys || 
  19.                                             (!$nowsys && !$begsys));
  20.     last if time - $beg > 20;
  21. }
  22.  
  23. if ($i >= 200000) {print "ok 2\n";} else {print "not ok 2\n";}
  24.  
  25. ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($beg);
  26. ($xsec,$foo) = localtime($now);
  27. $localyday = $yday;
  28.  
  29. if ($sec != $xsec && $mday && $year)
  30.     {print "ok 3\n";}
  31. else
  32.     {print "not ok 3\n";}
  33.  
  34. exit 0 unless $does_gmtime;
  35.  
  36. ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime($beg);
  37. ($xsec,$foo) = localtime($now);
  38.  
  39. if ($sec != $xsec && $mday && $year)
  40.     {print "ok 4\n";}
  41. else
  42.     {print "not ok 4\n";}
  43.  
  44. if (index(" :0:1:-1:364:365:-364:-365:",':' . ($localyday - $yday) . ':') > 0)
  45.     {print "ok 5\n";}
  46. else
  47.     {print "not ok 5\n";}
  48.